﻿Public Class BEusuario

#Region "Declaración de variables"

    Private codUsuario As Integer
    Private password As String

#End Region

    Sub New()
    End Sub

    Sub New(ByVal pCodUsuario As Object, _
            ByVal pPassword As Object)

        Me._codUsuario = pCodUsuario
        Me._password = pPassword

    End Sub

    Public Property _codUsuario() As Integer
        Get
            Return Me.codUsuario
        End Get
        Set(ByVal value As Integer)
            Me.codUsuario = value
        End Set
    End Property

    Public Property _password() As String
        Get
            Return Me.password
        End Get
        Set(ByVal value As String)
            Me.password = value
        End Set
    End Property

End Class
